﻿Public Class frmthongketheotheloai

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

        'TextBox1.Text = CrystalReport11.Parameter_ma.DefaultValues(0).
        'CrystalReportViewer1.ReportSource = CrystalReport11
    End Sub

    Private Sub LoadLaiDanhSach()
        CrystalReport_ThongKeTheoTheLoai1.SetParameterValue("@Nam", NumericUpDown_Nam.Value)
        CrystalReport_ThongKeTheoTheLoai1.SetParameterValue("@Thang", NumericUpDown_Thang.Value)
        CrystalReportViewer_ThongKeTheoLoaiSach.ReportSource = CrystalReport_ThongKeTheoTheLoai1
    End Sub

    Private Sub frmthongketheotheloai_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        NumericUpDown_Thang.Value = DateTime.Now.Month
        NumericUpDown_Nam.Value = DateTime.Now.Year
        LoadLaiDanhSach()
    End Sub

    Private Sub NumericUpDown_Thang_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumericUpDown_Thang.ValueChanged
        LoadLaiDanhSach()
    End Sub

    Private Sub NumericUpDown_Nam_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumericUpDown_Nam.ValueChanged
        LoadLaiDanhSach()
    End Sub
End Class